Here's another script of Edmund's, (workaholic isn't he), it compares the
names of files/dirs in two listers and leaves the duplicated ones selected.
/*
$VER: DupeCheck.dopus5 1.1 (7.5.96)
Written by Edmund Vermeulen (edmundv@grafix.xs4all.nl).
ARexx script for Directory Opus 5 to select all entries in the source
lister that already exist in the destination lister (a.k.a. dupes).
Function : ARexx DOpus5:ARexx/DupeCheck.dopus5 {Qp}
*/
parse arg portname
if portname = '' then
portname = 'DOPUS.1'
address value portname
options results
options failat 21
lister query source
if rc > 0 then do
dopus request '"No source selected." OK'
exit
end
parse var result srchandle .
lister query dest
if rc > 0 then do
dopus request '"No destination selected." OK'
exit
end
parse var result desthandle .
lister set srchandle busy on
lister set desthandle busy on
lister query desthandle entries stem entry.
do i = 0 to entry.count - 1
lister select srchandle '"'entry.i'"' on
end
lister refresh srchandle
lister set srchandle busy off
lister set desthandle busy off
exit
There's only four lines that do all the work, all the rest just make sure
there's a source and destination lister and sets their state to busy while
we're working.
lister query desthandle entries stem entry.
do i = 0 to entry.count - 1
lister select srchandle '"'entry.i'"' on
end
All we do is get a list of all entries in a stem variable and then loop
around selecting them in the source lister, if the name exists it will be
selected. Simple!
|
